use "C:\Users\Steve\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\II Submission\For Submission.dta" 

***Table 1***
	***Model 1, Dropped extreme outliers***
xtgls changeii iirating1 lnhumanrightseventsl l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8 & changeii>-10 & changeii<10, panels(hetero) corr(psar1) rhotype(regress) force
outreg2 using "C:\Users\Steve\Dropbox\Shaming Effects on Credit Rating\Data", replace excel alpha(0.01, 0.05, 0.1)
	***Model 2 Includes Extreme Outliers***
xtgls changeii iirating1 lnhumanrightseventsl l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8, panels(hetero) corr(psar1) rhotype(regress) force
outreg2 using "C:\Users\Steve\Dropbox\Shaming Effects on Credit Rating\Data", append excel alpha(0.01, 0.05, 0.1)
***Building Figures for Main Text***
xtgls changeii iirating1 lnhumanrightseventsl l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8 & changeii>-10 & changeii<10, panels(hetero) corr(psar1) rhotype(regress) force
margins, at(lnhumanrightseventsl=(0(.25)5))atmeans level(90)
marginsplot
graph save Graph "D:\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\Submission 2\New Figure 1.gph"

margins, at(l.imf_gd =(0(25)200))atmeans level(90)
marginsplot
graph save Graph "D:\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\Submission 2\New Figure 3.gph"
quietly margins, at(l.polity2=(-10(5)10))atmeans level(90)
marginsplot
graph save Graph "D:\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\Submission 2\New Figure 2.gph"

***Building Figures for Appendix***
xtgls iirating iirating1 lnhumanrightseventsl l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8, panels(hetero) corr(psar1) rhotype(regress) force
quietly margins, at(lnhumanrightseventsl=(0(.25)5))atmeans level(95)
marginsplot
quietly margins, at(lnhumanrightseventsl=(0(.25)5))atmeans level(95)
marginsplot, recastci(rarea)
***Additional Models for Appendix***
xtgls changeii l.changeii lnhumanrightseventsl l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8 & changeii>-10 & changeii<10, panels(hetero) corr(psar1) rhotype(regress) force
outreg2 using "C:\Users\Steve\Dropbox\Shaming Effects on Credit Rating\Appendix", replace excel alpha(0.01, 0.05, 0.1)
xtgls changeii l.changeii l.humanrightsNGO2govnegmgold l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8 & changeii>-10 & changeii<10, panels(hetero) corr(psar1) rhotype(regress) force
outreg2 using "D:\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\JPEP Submission\For Appendix", append excel alpha(0.01, 0.05, 0.1)
xtgls changeii l.iirating l.humanrightsNGO2govnegmgold l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8 & changeii>-10 & changeii<10, panels(hetero) corr(psar1) rhotype(regress) force
outreg2 using "D:\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\JPEP Submission\For Appendix", append excel alpha(0.01, 0.05, 0.1)
xtgls changeii l.changeii l.humanrightsNGO2govnegmgold l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8, panels(hetero) corr(psar1) rhotype(regress) force
outreg2 using "D:\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\JPEP Submission\For Appendix", append excel alpha(0.01, 0.05, 0.1)
xtgls changeii l.iirating l.humanrightsNGO2govnegmgold l.polity2 lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current if physint!=8, panels(hetero) corr(psar1) rhotype(regress) force
outreg2 using "D:\Dropbox\Shaming Effects on Credit Rating\Drafts and Abstracts\JPEP Submission\For Appendix", append excel alpha(0.01, 0.05, 0.1)
***Other Models***
xtgls iirating lnhumanrightseventsl l.democracy lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current l.trade i.year i.ccode, panels(hetero) corr(psar1) rhotype(regress) force
xtgls iirating l.AVERAGEhrnoposmgold l.democracy lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current l.trade i.year i.ccode, panels(hetero) corr(psar1) rhotype(regress) force
xtreg iirating lnhumanrightseventsl l.democracy lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current l.trade i.year, fe robust cluster(ccode)
xtreg iirating iirating1 l.AVERAGEhrnoposmgold l.democracy lgdppc1 growth1 l.imf_gd l.lnreport l.war l.physint l.imf_rev l.oecd current l.trade i.year, fe robust cluster(ccode)
